perm filename ALTST.SAI[AL,HE] blob sn#290127 filedate 1977-06-28 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 Driver for test of ALTST
C00003 ENDMK
CāŠ—;
COMMENT  Driver for test of ALTST;

BEGIN "altst"

REQUIRE "ABBREV.SAI[AL,HE]" SOURCE_FILE;
REQUIRE "ALAID.REL[AL,HE]" LOAD_MODULE;
    EXTERNAL RECURSIVE STRING PROCEDURE TREATREQUEST
      (STRING STR; INTEGER SOURCE);
    EXTERNAL PROCEDURE ALAIDINIT;


WHILE TRUE DO
    BEGIN "aid"  !  Look at a user request;
    INTEGER I, BRCHAR;
    STRING STR;
    OUTSTR(CRLF & ":*: ");
    STR ā† INCHWL;  ! TTYINL(WTABL0,BRCHAR);
    OUTSTR(TREATREQUEST(STR,1));
    END "aid";

END "altst"